source <- function(type="HW1.R") {
# Displaces 4 when source("HW.R") is typed.
# 
# Args:
#  "HW1.R"
# 
# Returns:
#  The value of 4 when "HW1.R" is typed in the paraentheses of source.
#
# Replaces expression HW1.R with 4.
  switch(type, HW1.R=4)
}


# Below is a simple introductory exercise of forming a vector and displaying it in R.
#
# Args:
#  10.4, 5.6, 3.1, 6.4, 21.7
#
# Returns:
#  A column vector "x" with the numbers 10.4, 5.6, 3.1, 6.4, 21.7.
#
x <- c(10.4, 5.6, 3.1, 6.4, 21.7)
#
# Displays the values of vector x. 
x

